(ns pe.p10
  (:use pe.primes))

(print (reduce + (take-while #(< % 2000000) primes)))
